#include <iostream>
#include <vector>
using namespace std;
int main()
{
    setlocale (LC_ALL, "Russian"); 
    string s="",s2="",mslovo ="";
    int zagl = 0,lat = 0,dlin3 = 0,defis = 0;
    getline(cin,s);
    vector <string> slova;
    for (int i = 0;i<s.length();i++) {
        if (s[i]!=' ') {
            s2 += s[i];
        } else {
            slova.push_back(s2);
            s2 = "";
        }
    }
    slova.push_back(s2);
    if (slova.size()<2) {
        cout << "Мало данных для анализа";
        return 0;
    }
    s2 = "";
    for (int i = 0;i<slova.size();i++) {
        cout << slova[i] << endl;
        if (slova[i][0] >= "А"[0] and slova[i][0] <= "Я"[0] ) zagl++;
        for (int j = 0;j<slova[i].size();j++) {
            if (slova[i][j] >= 'a' and slova[i][j] <= 'z' or 
                slova[i][j] >= 'A' and slova[i][j] <= 'Z' ) {
                lat++;
                break;
                }
        }
        for (int j = 0;j<slova[i].size();j++) {
            if (slova[i][j] == '-') {
                defis++;
                break;
                }
        }
        if (slova[i].size()<= 3) dlin3++;
 
        if (slova[i].size()>maxslovo.size()) maxslovo = slova[i];
    }
    cout << "Количество введенных слов: " << slova.size() << endl;
    cout << "Количество слов, с кирилической большой: " << zagl << endl;
    cout << "Количество букв с латинскими буквами: " << lat << endl;
    cout << "Слов, длина <= 3: " << dlin3 << endl;
    cout << "Слов с дефисом: " << defis << endl;
    cout << "Самое длинное слово: " << mslovo;
    cout << " и его длина: " << mslovo.size() << endl;
}